DRNBER=0
DR1='N:'
DR2='Q:'
F3='SUPPLIER'
F4='DRUGS'
F5='DISPOS'
F2='DRUG_ENT'
SET EXCLU OFF
USE &DR1&F2
GO BOTT
IF EOF()
   ENBER=1
ELSE
   ENBER=ENTRY_NBER+1
ENDIF
*nber=max(drnber,dinber)
store 0 to ORDRU,ORDIS,PL1
DO WHILE PL1=0
   set color to bg/b
   @ 4,1 clea to 23,78
   DO BOXT WITH 4,3,"ENTRY IN STORE",'N+','BG',.T.,.T.
   DO BOXT WITH 8,1,"DRUGS or DISPOSABLE ITEMS are entered in CENTRAL STORE as BUYING UNITS.",'GR+','B',.F.,.F.
   DO BOXT WITH 10,1,"ENTRY PRICE is the TOTAL PRICE invoiced by the SUPPLIER, including",'GR+','B',.F.,.F.
   DO BOXT WITH 12,1,"P.P.N. (V.A.T.), when applicable. The SYSTEM calculates the UNIT COST.",'GR+','B',.F.,.F.
   SET COLOR TO W/N
   @ 16,5 CLEA TO 22,39
*   @ 20,45 CLEA TO 22,77
   set color to n/bg,w+/n
   @ 15,3 clea to 21,37
*   @ 19,43 CLEA TO 21,75
   @ 15,3 to 21,37 double
*   @ 19,43 TO 21,75 DOUBLE
   @ 16, 5  PROMPT "B1. ENTRY IN STORE             "
   @ 18, 5  PROMPT "B2. PRINT ENTRY IN STORE       "
   @ 20, 5  PROMPT "X . BACK TO PREVIOUS MENU      "
   MENU TO PL1
   SET COLO TO BG+/B,W+/N
   DO CASE
      CASE PL1=1
         DO INVBA
      CASE PL1=2
         DO INVBC
      CASE PL1=3 .OR. LASTKEY()=27
         RETURN
   ENDCASE
   PL1=0
ENDDO
